fmap f ma = ma >>= \a -> return (f a)